1000 REM JFS - 8/31/84 1010 PRINTCHR$(14)"[147][215][197][204][195][207][205][197][160][212][207]:" 1020 PRINT" [215][197][196][199][197] " 1030 PRINT" [201][206][211][212][210][213][195][212][201][207][206][211] " 1040 PRINT"[194]Y [211]TEVE [199]AST" 1050 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]" 1060 GETW$:IFW$=""THEN1060 1070 PRINT"[147] @ [146] OR  > " 1080 PRINT"[212]HIS COMMAND WILL READ THE ERROR" 1090 PRINT"CHANNEL AND INTIALIZE THE DISK DRIVE" 1100 PRINT" @[195][DRIVE #]:[NEWFILE]=[OLDFILE] " 1110 PRINT"[212]HIS COMMAND WILL MAKE A SECOND COPY OF" 1120 PRINT"A PROGRAM UNDER A DIFFERENT NAME [207][206] [212][200][197]" 1130 PRINT"[211][193][205][197] [196][201][211][203]. [198]OR EXAMPLE: @[195]0:[208][210][207][199][210][193][205]1=" 1140 PRINT"[208][210][207][199][210][193][205]2 WILL MAKE A COPY OF [208][210][207][199][210][193][205]1" 1150 PRINT"CALLED [208][210][207][199][210][193][205]2 ON THE SAME DISK." 1160 PRINT" @[201][DRIVE #] " 1170 PRINT"[212]HIS COMMAND WILL INITIALIZE THE DISK" 1180 PRINT"DRIVE. [206]OTE: YOU CAN INITIALIZE A DRIVE" 1190 PRINT"OTHER THAN 0 (THE DEFAULT DRIVE #) BY" 1200 PRINT"ADDING THE DRIVE # AFTER THE LETTER [201]." 1210 PRINT"[197]XAMPLE: @[201]1. 1220 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL" 1230 [161]W$:[139]W$[178]""[167]1230 1240 [153]"LOAD @(null)0:[DISKNAME],[ID] " 1250 [153]"(null)HIS COMMAND WILL FORMAT A DISK WHERE" 1260 [153]"[DISKNAME] IS A USER ASSIGNED NAME FOR" 1270 [153]"THE DISK AND [ID] IS A 2 CHARACTER" 1280 [153]"DISKETTE RIGHT$STR$ CODE OF YOUR CHOICE." 1290 [153]" @(null) " 1300 [153]"(null)HIS COMMAND WILL KILL THE LEN-64 WEDGE." 1310 [153]" @(null)0:[NEWFILE]=[OLDFILE] " 1320 [153]"(null)HIS COMMAND ALLOWS A PROGRAM OR FILE" 1330 [153]"UNDER AN EXISTING NAME(OLDFILE) TO BE" 1340 [153]"RENAMED(NEWFILE) ON THE DISK DIRECTORY." 1350 [153]" @S0:[FILENAME] " 1360 [153]"(null)HIS COMMAND ALLOWS A PROGRAM OR FILE" 1370 [153]"TO BE SCRATCHED FROM THE DISK DIRECTORY." 1380 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL" 1390 [161]W$:[139]W$[178]""[167]1390 1400 [153]"LOAD @(null)MID$ " 1410 [153]"(null)HIS COMMAND WILL RESET THE STR$ISK" 1420 [153]"(null)PERATING (null)YSTEM (STR$(null)(null))." 1430 [153]" @$ " 1440 [153]"(null)HIS COMMAND WILL DISPLAY THE DIRECTORY" 1450 [153]"(null)RIGHT$(null)LEFT$(null)(null)(null) ATNASCASCVALLEN(null)RIGHT$(null)CHR$ ATN (null)(null)(null)CHR$(null)ATN(null) RIGHT$(null) (null)VAL(null)(null)(null)(null)." 1460 [153]" @#[DEVICE #] " 1470 [153]"(null)HIS 64-ONLY COMMAND WILL SEND ALL STR$(null)(null)" 1480 [153]"COMMANDS TO A SELECTED DISK UNIT (8-15)." 1490 [153]" /[FILENAME] " 1500 [153]"(null)HIS COMMAND WILL LOAD A PEEKATN(null)RIGHT$LEN PROGRAM" 1510 [153]"(FILENAME IN THE ABOVE EXAMPLE)." 1520 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL" 1530 [161]W$:[139]W$[178]""[167]1530 1540 [153]"LOAD %[FILENAME] " 1550 [153]"(null)HIS 64-ONLY COMMAND WILL LOAD PROGRAMS" 1560 [153]"TO THE ORIGINAL ADDRESS (I.E. A MACHINE" 1570 [153]"LANGUAGE PROGRAM). RIGHT$N THE ABOVE EXAMPLE" 1580 [153]"FILENAME REFERS TO THE PROGRAM'S NAME" 1590 [153]"AS IT APPEARS IN THE DIRECTORY." 1600 [153]" ^[FILENAME] " 1610 [153]"(null)HIS COMMAND WILL LOAD AND RUN A PEEKATN(null)RIGHT$LEN" 1620 [153]"PROGRAM (FILENAME IN THE ABOVE EXAMPLE)" 1630 [153]" _[FILENAME] " 1640 [153]"(null)HIS 64-ONLY COMMAND WILL SAVE A PEEKATN(null)RIGHT$LEN" 1650 [153]"PROGRAM." 1660 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL" 1670 [161]W$:[139]W$[178]""[167]1670 1680 [138]